home *** CD-ROM | disk | FTP | other *** search
/ Gekkan Dennou Club 145 / Gekkan Dennou Club - 2000.6 Vol. 145 (Japan).7z / Gekkan Dennou Club - 2000.6 Vol. 145 (Japan) (Track 1).bin / games / spassion / knowhow.lzh / ノウハウ / option1.bas < prev    next >
BASIC Source File  |  1993-10-31  |  2KB  |  57 lines
  1. char s
  2. int  i
  3. int  jx=128,jy=128
  4. /*---------[ ｵﾌﾟｼｮﾝﾖｳ ﾊﾞｯﾌｧ ]---------------------------
  5. dim char opt_x(255),opt_y(255)
  6. /*---------[ ｶｸｼｭｼｮｷｶ ]---------------------------------
  7. scr_init()
  8. for i=0 to 255
  9.   opt_x(i)=jx:opt_y(i)=jy
  10. next
  11. /*
  12. /*######################################################
  13. /*#                    ＭＡＩＮ                        #
  14. /*######################################################
  15. while -1
  16. /*----------[ ﾎﾝﾀｲﾉ ｲﾄﾞｳ ]------------------------------
  17. s=stick(1)
  18. if s=9 or s=6 or s=3 then jx=jx+4 and 255
  19. if s=7 or s=4 or s=1 then jx=jx-4 and 255
  20. if s=1 or s=2 or s=3 then jy=jy+4 and 255
  21. if s=7 or s=8 or s=9 then jy=jy-4 and 255
  22. sp_set(0,jx,jy,&H106,3)
  23. /*----------[ ｵﾌﾟｼｮﾝ ｼｮﾘ ]-------------------------------
  24. opt_x(0)=jx:opt_y(0)=jy
  25. /*  ﾊﾞｯﾌｧﾃﾝｿｳ
  26. for i=1 to 127
  27.   opt_x(128-i)=opt_x(127-i)
  28.   opt_y(128-i)=opt_y(127-i)
  29. next
  30. /*  ｵﾌﾟｼｮﾝ ﾋｮｳｼﾞ
  31. for i=1 to 15
  32.   sp_set(i,opt_x(i*8),opt_y(i*8),&H228,3)
  33. next
  34. /*========================================================
  35. endwhile
  36. end
  37. /*
  38. /*
  39. /*######################################################
  40. /*   ＳＣＲ＿ＩＮＩＴ（）
  41. /*
  42. /* scr_init()
  43. /* ｶﾞﾒﾝｦ GAMEｾﾝﾖｳﾆ ｼｮｷｶｽﾙ｡
  44. /*======================================================
  45. func scr_init()
  46. int i
  47. /*-------------------------
  48.   screen 0,2,1,1
  49.   sp_on(0,127)
  50.   for i=0 to 127:sp_set(i,0,0,0,3):next
  51.   sp_disp(1)
  52.   bg_set(0,0,1):bg_scroll(0,0,0)
  53.   bg_set(1,1,1):bg_scroll(1,0,0)
  54.   bg_fill(0,0):bg_fill(1,0)
  55.   mouse(4):mouse(2)
  56. endfunc
  57.